home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Know Your Baseball - The Greatest Player Resource
/
Know Your Baseball - Greatest Player.iso
/
Baseball
/
Director
/
KTGCST.CST
/
00042_Script_Rollovers
< prev
next >
Wrap
Text File
|
1998-09-21
|
4KB
|
142 lines
--global gButtonState,gPrompts,gPop,gRoll,gLastRoll
--
-- RolloKitF
-- if gPop =(window "PopMenu") then exit
-- if gRoll>= 14 and gRoll <= 22 then
--
--
-- turnon
--
-- -- set a =getat(gPrompts,gRoll)
-- -- put a into field "PromptWindow"
-- else
-- -- set a =getat(gPrompts,1)
-- -- put a into field "PromptWindow"
-- end if
-- if voidp(glastRoll) or gLastRoll = 0 then exit
-- set test = getat(gButtonState,gLastRoll)
-- if test < 1 and gLastRoll <> gRoll then
-- resetsprites2
-- end if
--
--end
--
--on turnon
-- case gRoll of
-- 21:
-- set the blend of sprite gRoll-15 to 100
-- set the blend of sprite gRoll+5 to 100
-- 22:
-- set the blend of sprite gRoll-14 to 100
-- set the blend of sprite gRoll+6 to 100
-- otherwise
-- set the blend of sprite gRoll-10 to 100
-- set the blend of sprite gRoll+10 to 100
-- end case
--end
--
--
--on resetsprites2
-- if gLastRoll >=15 and gLastRoll <= 22 then
-- turnoff
--
-- end if
--end
--
--on turnoff
-- case gLastRoll of
-- 21:
-- set the blend of sprite glastRoll-15 to 0
-- set the blend of sprite gLastRoll+5 to 0
-- 22:
-- set the blend of sprite glastRoll-14 to 0
-- set the blend of sprite gLastRoll+6 to 0
-- otherwise
-- set the blend of sprite glastRoll-10 to 0
-- set the blend of sprite gLastRoll+10 to 0
-- end case
--end
--
--on RolloKitA
-- set x = the rollover
-- set gLastRoll = gRoll
-- set gRoll = x
-- if gPop =(window "PopMenu") then exit
-- if gRoll>= 22 and gRoll <= 31 then
-- set the blend of sprite gRoll to 100
-- set the blend of sprite gRoll-20 to 100
-- -- set a =getat(gPrompts,gRoll)
-- -- put a into field "PromptWindow"
-- else
-- -- set a =getat(gPrompts,1)
-- -- put a into field "PromptWindow"
-- end if
-- if voidp(glastRoll) or gLastRoll = 0 then exit
-- set test = getat(gButtonState,gLastRoll)
-- if test < 1 and gLastRoll <> gRoll then
-- resetsprites3
-- end if
--
--end
--
--on resetsprites3
-- if gLastRoll >=22 and gLastRoll <= 31 then
-- set the blend of sprite glastRoll = 0
-- set the blend of sprite glastRoll-20 = 0
-- end if
--end
--
--on rollokit
-- if gPop =(window "PopMenu") then exit
-- set x = the rollover
-- set gLastRoll = gRoll
-- set gRoll = x
-- if x> 15 and x < 46 then
-- set the blend of sprite x to 100
-- -- set a =getat(gPrompts,x)
-- -- put a into field "PromptWindow"
-- else
-- -- set a =getat(gPrompts,1)
-- -- put a into field "PromptWindow"
-- end if
-- resetsprites
--end
--
--on resetsprites
-- if glastRoll < 14 or gLastRoll > 45 then exit
-- set test = getat(gButtonState,gLastRoll)
-- if test < 1 and gLastRoll <> gRoll then
-- set the blend of sprite gLastRoll = 0
-- end if
--end
--
--
--on RolloKitC
-- if gPop =(window "PopMenu") then exit
-- if gRoll>= 32 and gRoll <= 44 then
-- set the blend of sprite gRoll to 100
-- -- set a =getat(gPrompts,gRoll)
-- -- put a into field "PromptWindow"
-- else
-- -- set a =getat(gPrompts,1)
-- -- put a into field "PromptWindow"
-- end if
-- if voidp(glastRoll) or gLastRoll = 0 then exit
-- set test = getat(gButtonState,gLastRoll)
-- if test < 1 and gLastRoll <> gRoll then
-- resetsprites4
-- end if
--
--end
--
--on resetsprites4
-- if gLastRoll >=32 and gLastRoll <= 44 then
-- set the blend of sprite glastRoll = 0
-- end if
--end
--
--
--
--
--